home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / science / sciware.sit / Scientific Software / card_49441.txt < prev    next >
Text File  |  1989-02-03  |  807b  |  41 lines
  1. -- card: 49441 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3144
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=91 top=309 right=332 bottom=185
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Import text
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   Global fileName
  23.   ask "Import text from what file?"
  24.   if it is empty then exit mouseUp
  25.   put it into fileName
  26.   open file fileName
  27.   repeat
  28.     doMenu "New Card"
  29.     read from file fileName until return
  30.     if it is empty then exit mouseUp
  31.     put it into line 1 of field 1
  32.  
  33.   end repeat
  34.  
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part contents for background part 3
  40. ----- text -----
  41. Last Card